home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8411.d64
/
list 5 (joy)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
568b
|
17 lines
30 REM ********************************
31 REM * J O Y *
32 REM ********************************
33 REM * ERGAENZUNG ZU SIMON'S BASIC *
34 REM * FORMAT: dQ N *
35 REM * STELLT dQSTICKPORT EIN *
36 REM * > BEISPIEL: dQ1 (FUER PORT1)*
37 REM * dQ2 (FUER PORT2)*
38 REM ********************************
39 K=0:PRINT" J O Y [146] ?CHECKSUM ";
40 FORI=$BFE3 TO $BFF1:READ J:POKE I,J:K=K+J:NEXT
41 DATA32,115,,32,6,129,138,41,1,141
42 DATA213,136,76,42,130
43 POKE$88DA,111:POKE$88FC,16
44 POKE$8764,226:POKE$8765,191
45 IFK=1232THENPRINT"OK":dG:PRINT"ERROR"